"
MyTrait @ {#aliasName -> #existingSelectorName}
"
Class {
	#name : 'CDTraitAliasNode',
	#superclass : 'CDTraitCompositionNode',
	#instVars : [
		'aliases',
		'aliasName'
	],
	#category : 'ClassParser-Model',
	#package : 'ClassParser',
	#tag : 'Model'
}

{ #category : 'accessing' }
CDTraitAliasNode >> aliasName [

	^ aliasName
]

{ #category : 'accessing' }
CDTraitAliasNode >> aliases [
	^ aliases
]

{ #category : 'accessing' }
CDTraitAliasNode >> aliases: aCollection [
	aliases := aCollection asDictionary
]

{ #category : 'testing' }
CDTraitAliasNode >> isTraitAliasNode [

	^ true
]

{ #category : 'printing' }
CDTraitAliasNode >> toString [
	"should replace aliasName"
	^ subject name, ' -> ', aliasName
]
